home *** CD-ROM | disk | FTP | other *** search
/ PC Users 1998 March / Pc Users extra 6.iso / pshare95 / prog / formula1 / vcform1.z / CreateObj.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1997-10-20  |  2.1 KB  |  75 lines
  1. VERSION 5.00
  2. Begin VB.Form Form3 
  3.    Caption         =   "Object Types"
  4.    ClientHeight    =   3195
  5.    ClientLeft      =   60
  6.    ClientTop       =   345
  7.    ClientWidth     =   2325
  8.    LinkTopic       =   "Form3"
  9.    ScaleHeight     =   3195
  10.    ScaleWidth      =   2325
  11.    StartUpPosition =   1  'CenterOwner
  12.    Begin VB.ListBox List1 
  13.       Height          =   2010
  14.       ItemData        =   "CreateObj.frx":0000
  15.       Left            =   135
  16.       List            =   "CreateObj.frx":0002
  17.       TabIndex        =   2
  18.       Top             =   75
  19.       Width           =   2025
  20.    End
  21.    Begin VB.CommandButton btnOK 
  22.       Caption         =   "OK"
  23.       Height          =   465
  24.       Left            =   165
  25.       TabIndex        =   1
  26.       Top             =   2655
  27.       Width           =   810
  28.    End
  29.    Begin VB.CommandButton btnCancel 
  30.       Caption         =   "Cancel"
  31.       Default         =   -1  'True
  32.       Height          =   465
  33.       Left            =   1350
  34.       TabIndex        =   0
  35.       Top             =   2670
  36.       Width           =   810
  37.    End
  38.    Begin VB.Label Label1 
  39.       Caption         =   "Select the type of object to Create."
  40.       Height          =   360
  41.       Left            =   180
  42.       TabIndex        =   3
  43.       Top             =   2190
  44.       Width           =   1980
  45.    End
  46. Attribute VB_Name = "Form3"
  47. Attribute VB_GlobalNameSpace = False
  48. Attribute VB_Creatable = False
  49. Attribute VB_PredeclaredId = True
  50. Attribute VB_Exposed = False
  51. Private Sub btnCancel_Click()
  52.     Form1.F1Book1.Tag = "Cancel"
  53.     Unload Form3
  54.     Form1.Show
  55. End Sub
  56. Private Sub btnOK_Click()
  57.     If List1.ListIndex = -1 Then
  58.         MsgBox "Make a selection."
  59.         Exit Sub
  60.     End If
  61.     Form1.F1Book1.Tag = List1.Text
  62.     Unload Form3
  63.     Form1.Show
  64. End Sub
  65. Private Sub Form_Load()
  66.     List1.AddItem "Line"
  67.     List1.AddItem "Rectangle"
  68.     List1.AddItem "Oval"
  69.     List1.AddItem "Arc"
  70.     List1.AddItem "Button"
  71.     List1.AddItem "CheckBox"
  72.     List1.AddItem "ComboBox"
  73.     List1.AddItem "Chart"
  74. End Sub
  75.